
       org $800
;
        clr.b d1   ; sum value
        clr.b d2   ; increment value
loop    cmp.b limit,d1
        blo  continue ; sum < limit?
        beq  copy   ;  sum = limit?
        sub.b d2,d1  ; sum > limit, subtract sum by last increment
        bra  copy
continue add.b #1,d2  ; increment d2 by 1
         add.b d2,d1  ; add sum
         bra loop
copy     move.b d1,result


finish  nop

          org $b00

limit     ds.b 1
result    ds.b 1
last      ds.b 1